home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d963.lha / SIOD / scm / random.scm < prev    next >
Text File  |  1993-02-22  |  174b  |  6 lines
  1. (define (next-rand x)
  2.         (remainder (+ 25514 (* x 3)) 65536))
  3.  
  4. (define rand (let ((random 2346))
  5.                   (lambda () (set! random (next-rand random)) random)))
  6.